home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Present…nuary (Partner) - Disc 2 / The Apple Reference and Presentations Library (Disc 2)(January 1994).iso / Synergy Software / Japanese / KaleidaGraph˛-PPC / Examples folder / Macro Source / View General < prev   
Encoding:
Text File  |  1994-04-18  |  1.3 KB  |  162 lines  |  [TEXT/QKPT]
  1. alpha     "View General:"
  2. const     1.000000000e+01
  3. RCL 26
  4. x >= y
  5. GTO 90
  6.  
  7. const     1.000000000e+00
  8. RCL 26
  9. x < y
  10. GTO 90
  11.  
  12. FIX 7
  13. RCL 00
  14. STO 19
  15.  
  16. XEQi 26
  17. STOP
  18.  
  19. LBL 90
  20. alpha     "âÒãAã»ê¸ÉfÅ[É^ǻǵ"
  21. view 0
  22. STOP
  23.  
  24. LBL 01
  25. XEQ 98
  26. RCL 19
  27. STO 01
  28. alpha     "r ="
  29. STOa 1
  30. alpha     "àÍî âÒãAã»ê¸:"
  31. view 2
  32. XEQ 99
  33. RTN
  34.  
  35. LBL 02
  36. XEQ 98
  37. RCL 19
  38. STO 02
  39. alpha     "r ="
  40. STOa 2
  41. alpha     "àÍî âÒãAã»ê¸:"
  42. view 3
  43. XEQ 99
  44. RTN
  45.  
  46. LBL 03
  47. XEQ 98
  48. RCL 19
  49. STO 03
  50. alpha     "r ="
  51. STOa 3
  52. alpha     "àÍî âÒãAã»ê¸:"
  53. view 4
  54. XEQ 99
  55. RTN
  56.  
  57. LBL 04
  58. XEQ 98
  59. RCL 19
  60. STO 04
  61. alpha     "r ="
  62. STOa 4
  63. alpha     "àÍî âÒãAã»ê¸:"
  64. view 5
  65. XEQ 99
  66. RTN
  67.  
  68. LBL 05
  69. XEQ 98
  70. RCL 19
  71. STO 05
  72. alpha     "r ="
  73. STOa 5
  74. alpha     "àÍî âÒãAã»ê¸:"
  75. view 6
  76. XEQ 99
  77. RTN
  78.  
  79. LBL 06
  80. XEQ 98
  81. RCL 19
  82. STO 06
  83. alpha     "r ="
  84. STOa 6
  85. alpha     "àÍî âÒãAã»ê¸:"
  86. view 7
  87. XEQ 99
  88. RTN
  89.  
  90. LBL 07
  91. XEQ 98
  92. RCL 19
  93. STO 07
  94. alpha     "r ="
  95. STOa 7
  96. alpha     "àÍî âÒãAã»ê¸:"
  97. view 8
  98. XEQ 99
  99. RTN
  100.  
  101. LBL 08
  102. XEQ 98
  103. RCL 19
  104. STO 08
  105. alpha     "r ="
  106. STOa 8
  107. alpha     "àÍî âÒãAã»ê¸:"
  108. view 9
  109. XEQ 99
  110. RTN
  111.  
  112. LBL 09
  113. XEQ 98
  114. alpha     "àÍî âÒãAã»ê¸:"
  115. view 9
  116. XEQ 99
  117. RTN
  118.  
  119. LBL 98
  120. RCL 01
  121. STO 00
  122. RCL 02
  123. STO 01
  124. RCL 03
  125. STO 02
  126. RCL 04
  127. STO 03
  128. RCL 05
  129. STO 04
  130. RCL 06
  131. STO 05
  132. RCL 07
  133. STO 06
  134. RCL 08
  135. STO 07
  136. RCL 09
  137. STO 08
  138. RTN
  139.  
  140. LBL 99
  141. RCL 08
  142. STO 09
  143. RCL 07
  144. STO 08
  145. RCL 06
  146. STO 07
  147. RCL 05
  148. STO 06
  149. RCL 04
  150. STO 05
  151. RCL 03
  152. STO 04
  153. RCL 02
  154. STO 03
  155. RCL 01
  156. STO 02
  157. RCL 00
  158. STO 01
  159. RCL 19
  160. STO 00
  161. RTN
  162.